Option Explicit
Sub P_Sample018()
    Dim myFso    As Scripting.FileSystemObject
    Dim myLetter As String
    Set myFso = New Scripting.FileSystemObject
    myLetter = "E"				'NϺо
    If myFso.DriveExists(DriveSpec:=myLetter) Then
        MsgBox "Ϻо" & myLetter & "sbC"
    Else
        MsgBox "Ϻо" & myLetter & "sbC"
    End If
    Set myFso = Nothing				'
End Sub
